library(tidyverse)
library(DT)
library(plotly)
csv <- "https://docs.google.com/spreadsheets/d/1lnmx4zAA8myRnW3cwnN5N4avg9RfYvqbiGj2zZ2nQJk/gviz/tq?tqx=out:csv&sheet=Form%20Responses%201"
d <- read_csv(csv)
datatable(d)
# View(d)
hist(d$`Rank your level of comfort in openly sharing data:`)
p <- ggplot(d, aes(x = `Rank your level of comfort in openly sharing data:`)) +
geom_histogram()
p
ggplotly(p)